package CgiUtil;
use base qw(Exporter);

our @EXPORT = qw/
myhead
/;

sub myhead {
my ($page_title) = @_;
	my $content = "Content-Type: text/html; charset=utf-8\r\n\r\n";
	$content .= '<!DOCTYPE html
		PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
		"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
		<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
		<head>
		<title>'
		. "$page_title" . 
		'</title>
		<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
		</head>
		<body>';
}

1;
